home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_07_1985_Transactor_Publishing.d64 / strip & clean (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  86 lines
  1. 0 rem strip & clean (aug 29/84)       :
  2. 1 :
  3. 2 rem 0 statements, 2 functions
  4. 3 :
  5. 4 rem keyword characters: 14
  6. 5 :
  7. 6 rem keyword     routine  line   ser #
  8. 7 rem f/strip$(   strip    3984    045
  9. 8 rem f/clean$(   clean    3988    046
  10. 9 :
  11. 10 rem u/cifchr (2560/003)
  12. 11 rem u/cifnum (4092/047)
  13. 12 :
  14. 13 rem ================================
  15. 14 :
  16. 609 .asc "strip$[168]clean$[168]"
  17. 1609 .word strip-1,clean-1
  18. 2560 cifchr cmp #$5b
  19. 2562 bcc cic1
  20. 2564 clc
  21. 2566 bcc cic2
  22. 2568 cic1 cmp #$41
  23. 2570 cic2 rts
  24. 2572 ;
  25. 3984 strip lda #$80
  26. 3986 .byte $2c
  27. 3988 clean lda #0
  28. 3990 pha
  29. 3992 jsr $aef4
  30. 3994 jsr $b6a3
  31. 3996 sta t3
  32. 3998 pla
  33. 4000 sta t4
  34. 4002 txa
  35. 4004 pha
  36. 4006 tya
  37. 4008 pha
  38. 4010 lda t3
  39. 4012 jsr $b47d
  40. 4014 pla
  41. 4016 sta $23
  42. 4018 pla
  43. 4020 sta $22
  44. 4022 stx $24
  45. 4024 sty $25
  46. 4026 ldx #0
  47. 4028 stx t5
  48. 4030 ldy #$ff
  49. 4032 cln1 iny
  50. 4034 cpy t3
  51. 4036 beq cln4
  52. 4038 lda ($22),y
  53. 4040 and #$7f
  54. 4042 jsr cifchr
  55. 4044 bcs cln2
  56. 4046 jsr cifnum
  57. 4048 bcs cln2
  58. 4050 bit t4
  59. 4052 bmi cln1
  60. 4054 bvs cln1
  61. 4056 cmp #$20
  62. 4058 bne cln1
  63. 4060 clc
  64. 4062 cln2 sta ($24,x)
  65. 4064 lda t4
  66. 4066 and #$80
  67. 4068 bcs cln3
  68. 4070 ora #$40
  69. 4072 cln3 sta t4
  70. 4074 inc t5
  71. 4076 inc $24
  72. 4078 bne cln1
  73. 4080 inc $25
  74. 4082 bne cln1
  75. 4084 cln4 lda t5
  76. 4086 sta $61
  77. 4088 jmp $b4ca
  78. 4090 ;
  79. 4092 cifnum cmp #":"
  80. 4094 bcc cin1
  81. 4096 clc
  82. 4098 bcc cin2
  83. 4100 cin1 cmp #"0"
  84. 4102 cin2 rts
  85. 4104 ;
  86.